uses crt, sysutils;

type TBeaRLibMap = array of Char;
procedure GenMap(X, Y, ID: Integer; var A: TBeaRLibMap; S: Integer); stdcall; external 'BeaRLibMG.dll';

var
  DR: TBeaRLibMap;
  I, J: Word;
  S: String;

const
  X = 25;
  Y = 75;
  Z = 1;

begin
  ClrScr;
  SetLength(DR, X * Y);
  GenMap(X, Y, Z, DR, X * Y);
  for I := 0 to X - 1 do
  begin
    S := '';
    for J := 0 to Y - 1 do
      S := S + DR[I*Y+J];
    WriteLn(S);
  end;
  ReadLn;
end.
